www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminHTML\D_make_new_art_view_wei_asp_ajaxed_before_x_cids.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>



<DIV id="loading_msg" style="position:absolute; z-index:200; top:210px; left:184px; background-color:#ffffff; width: 556px; height: 50px;" >

请稍后......</div>






<%

dir_set="../../"

%>

<!--#include file=../../inc/conn.asp-->

<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../inc/checkadmin2.asp-->
<!--#include file=../../inc/functionFiless.asp-->

<script type="text/javascript" src="../../inc/zxml.js"></script>


<!--#include file=../../inc/ajaxLIB_no_loader.asp-->



<!--#include file=../../inc/ND_class_function.asp-->




<%



Application.Lock()
Application("newdsoft_web_user_mdb_using")="no"
Application("newdsoft_web_user_mdb_when_using")=now()
Application.UnLock()

%>


<%



Server.ScriptTimeout=9999999


session.timeout=600







call  all_update_qiantai_web_filenames_config_xml()

' 检测组件变量
dim isobj,VerObj,TestObj



'检查组件是否被支持及组件版本的子程序
sub ObjTest(strObj)
  on error resume next
  IsObj=false
  VerObj=""
  set TestObj=server.CreateObject (strObj)
  If -2147221005 <> Err then		'感谢网友iAmFisher的宝贵建议
    IsObj = True
    VerObj = TestObj.version
    if VerObj="" or isnull(VerObj) then VerObj=TestObj.about
  end if
  set TestObj=nothing
End sub



  ObjTest(fssoo_nd_var_str_x_customx)



if not isobj then



sss1="检测中:对不起，由于你的系统不支持FSO组件,所以无法使用本后台"



%>





<script language="javascript">

setTimeout("document.all.loading_msg.innerHTML='<font color=#000000><%=sss1%></font>';",300);

alert("对不起，由于你的系统不支持FSO组件,所以无法使用本后台");

alert("对不起，由于你的系统不支持FSO组件,所以无法使用本后台");
alert("对不起，由于你的系统不支持FSO组件,所以无法使用本后台");


</script>






<%
response.end



else

sss1="检测中:支持FSO......"





%>






<script language="javascript">



setTimeout("document.all.loading_msg.innerHTML='<font color=#000000><%=sss1%></font>';",0);

setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>请稍后.....</font>';",300);


var ended=0;
var ended2=0;
var pos="";
var msg1="";

var needdo=1;
var pos22="0";
ended2=0;
var stu="ok";

pos22="0"



var dfirst="1"


//已用了asp里我自定义的sleep睡眠函数，js里的不用了
var per_sleep_time=5;


//request():
var isqiye="<%=request("isqiye")%>";
var whenover_to_where="D_make_new_art_view_htm_by_cids.asp?cids=<%=request("cids")%>&page=<%=request("page")%>&isqiye=<%=request("isqiye")%>";




//循环延时，防止卡住:
var w2 = setInterval("do_kernel_htm()",40);







var a22=AJAXcreateXMLdocument();



a22.onreadystatechange=function(){
if (a22.readyState==4)
{



if (a22.parseError.errorCode!=0){

alert("数据读取错误,或服务器过载(如果总过载,请在自己的本地计算机上生成htm页),请重试!!");

}

var root2=a22.documentElement;
var s2s1=root2.firstChild.text;
var s2s2=root2.childNodes[1].text;
var s2s4=root2.childNodes[2].text;


if (s2s1==1){ended2=1;}


msg1=s2s2;
dfirst="0";
needdo=1;
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"正在处理  "+msg1+" 页，正在生成htm.....</font>';",1500);



if (ended2==0){



}

else


{
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"正在生成htm....."+"</font>';",1500);


self.location=whenover_to_where;



}








if (s2s4!="ok"){
if (s2s4.indexOf("delete_main_shibai")==-1){
stu="shibai";
setTimeout("document.all.loading_msg.innerHTML='<font color=#000000>"+"出错，请重试...(出错原因:"+s2s4+")</font>';",1500);
alert("出错，请重试...(出错原因:"+s2s4+")");
}
else
{

}
}





}
}



function do_kernel_htm(){


if (needdo==1&&ended2==0&&stu=="ok"){
needdo=0;
a22.async=true; //异步模式
setTimeout("do_it();",per_sleep_time);

}


}


function do_it(){
a22.load("D_ajax_make_asp_ajaxed.asp?dfirst="+dfirst+"&isqiye="+isqiye+"&forwei=<%=request("weiii")%>");
}

</script>












<%
end if
%>